home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 April / EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso / earcd / utilgfx / rystrmxm.lha / Install_Examples < prev    next >
Text File  |  1996-03-06  |  3KB  |  128 lines
  1. ; Install_Examples - RayStorm examples installation script for Installer
  2. ;
  3. ; Copyright © 1995 Andreas Heumann
  4. ;
  5. ; $Id: Install_Examples,v 1.2 1996/24/01
  6. ;
  7. ;     Installer and Installer project icon
  8. ;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  9. ;     Reproduced and distributed under license from Commodore.
  10. ;
  11. ;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  12. ;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  13. ;     OR RESPONSIBILITY IS ASSUMED.
  14. ;
  15. ;
  16. (welcome "    Welcome to the " @app-name " examples installation.\n")
  17.  
  18. ; These directories are always present
  19. (set dir-pat "(anims|arexx|brushes|examples|objects)")
  20.  
  21. ; The source directory name
  22. (set source-dir
  23.  (if (= 1 (exists @icon))
  24.   (pathonly (expandpath @icon))
  25.   (expandpath @icon)
  26.  )
  27. )
  28.  
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30. (procedure select-destination-directory
  31.  ;; Select destination directory for the installation. We suggest the user
  32.  ;; to install to the place from where the installer was started. This is
  33.  ;; since normally this software will be unarchived to its proper location
  34.  ;; and the files don't have to be copied any more.
  35.  ;;
  36.  (transcript "Selecting destination directory for the installation.")
  37.  (while
  38.   (
  39.     (set @default-dest
  40.      (askdir
  41.       (prompt "Select directory where RayStorm is installed.\n")
  42.       (help "    Here you can specify location where to install "
  43.               "the RayStorm examples.\n"
  44.               "    Installation can be made on-place. "
  45.               "This is recommended if you have already unarchived "
  46.               "the RayStorm archive to its final location. "
  47.               "In this case "
  48.               "most of the files are left where they are. "
  49.               "Only necessary files are copied to different "
  50.               "positions.\n"
  51.      )
  52.       (newpath)
  53.       (default source-dir)
  54.     )
  55.    )
  56.    (if (= 2 (exists @default-dest))
  57.      0
  58.      (makedir @default-dest
  59.       (infos)
  60.      )
  61.     )
  62.   )
  63.  )
  64. )
  65.  
  66. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  67. (procedure
  68.  copy-files-to-destination ;;; Copy all files if not installing on-place
  69.  ;;
  70.  (if (= source-dir (expandpath @default-dest))
  71.   (message "\nSource and destination directories are the same, "
  72.             "not copying."
  73.     (help "    The RayStorm example files don't have to be copied, "
  74.            "since the source and the destination directories are "
  75.            "the same."
  76.     )
  77.   )
  78.   ((transcript "Copying example files from " source-dir " to "
  79.                 @default-dest "."
  80.     )
  81.    (foreach source-dir dir-pat
  82.     (
  83.      (set dest-dir (tackon @default-dest @each-name))
  84.       (if (NOT (exists dest-dir))
  85.        (makedir dest-dir)
  86.       )
  87.       (copyfiles (all)
  88.         (source (expandpath @each-name))
  89.         (dest dest-dir)
  90.         (prompt "Copying files to the selected location.")
  91.         (optional "askuser")
  92.       )
  93.      )
  94.     )
  95.   )
  96.  )
  97. )
  98.  
  99. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  100. ;;;
  101. ;;; Installatation sequence
  102. ;;;
  103. (message "Please remember during this installation:\n\n"
  104.      "    Read the instructions provided behind the \"Help\" "
  105.      "buttons, if you are not absolutely sure what you are doing.\n"
  106. )
  107.  
  108. (complete 00)
  109. (transcript "On making RayStorm.")
  110. (select-destination-directory)
  111. (complete 10)
  112. (copy-files-to-destination)
  113. (complete 80)
  114. (copyfiles (source source-dir)
  115.  (dest @default-dest)
  116.  (prompt "Copying files to the selected location.")
  117.  (choices "anims.info" "Readme" "Readme.info")
  118.  (files)
  119.  (infos)
  120.  (optional "askuser")
  121. )
  122. (complete 100)
  123.  
  124. ;;; All done!
  125.  
  126. ; EOF
  127.  
  128.